00100	COMPILE;
00200	INSTRUMENT GLISS;
00300	OSCIL(P4,MAG/P2,P5);
00400	COSCIL(P7*MAG-MAG*P3,MAG/P8,P9);
00500	COSCIL(U1,U2+MAG*P3,P6);
00600	OUTA←OUTA+U3;END;
00700	FINISH;
00800	ARRAY F5,F6,F3(512); <F1 is already present.
00900	SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
01000	SEG(F6);0,1  0,60  1,100; <Slope LAST 40%
01100	SYNTH(F1);1 1 3 .3  5 .2  7 .001 999;
01200	SEG(F3);0 1 1 100; < SLOPE ALL THE WAY
01300	
01400	
01500	PLAY;GLISS 0 .4 100 2000 F5 F1 1000 P2 F3;FINISH;